home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / cross / sasmv14.dms / sasmv14.adf / AREXX / edit.rexx next >
OS/2 REXX Batch file  |  1993-05-22  |  535b  |  23 lines
  1.  
  2. /*******************************/
  3. /*   ARexx CED Interface       */
  4. /*   for the Super SASM        */
  5. /*                             */
  6. /*   Edit current project      */
  7. /*******************************/
  8.  
  9. ProjectFile    =    '.project'
  10.  
  11. Options Results
  12.  
  13. If Exists(ProjectFile) then do
  14.     Call Open(Work,ProjectFile)
  15.     Line1=ReadLN(Work)
  16.     Call Close(Work)
  17.     ADDRESS COMMAND 'ced '||Line1
  18.     End
  19. Else do
  20.     say "ERROR EDIT: Uups, please create a project-file first."
  21.     say "~~~~~~~~~~~ It should only contain the name of your current sourcefile."
  22. End
  23.